home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 July / 1994-07b.d64 / gaz file cnvt64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  64 lines
  1. 0 poke53281,1:print"[147]":poke53281,6:poke53280,6
  2. 10 print"[147]   [199]azette/[211]peed[211]cript [198]ile [195]onverter   "
  3. 20 gosub320
  4. 30 input"[201]nput file name";i$
  5. 40 ifi$=""then30
  6. 50 input"[207]utput file name";o$
  7. 60 print"[196][146]isk, [211][146]creen, [208][146]rinter, [207][146]ther"
  8. 70 geta$:ifa$=""then70
  9. 80 dv=-(a$="t")-3*(a$="s")-4*(a$="p")-8*(a$="d"):sa=7
  10. 90 ifdv=0theninput"[196]evice number";dv:input"[211]econdary address";sa
  11. 100 print"[215]hich conversion:"
  12. 110 print"1) [211]peed[211]cript to [195]ommodore [193][211][195][201][201]"
  13. 120 print"2) [211]peed[211]cript to [212]rue [193][211][195][201][201]"
  14. 130 print"3) [195]ommodore [193][211][195][201][201] to [211]peed[211]cript"
  15. 140 getp$:ifp$<"1"orp$>"3"then140
  16. 150 adr=828+val(p$)*3-3
  17. 160 open15,8,15,"i0":rem remove ,"i0" if you've changed the drive's speed
  18. 170 open1,8,3,i$:input#15,en,em$:f$=i$:ifen=0then200
  19. 180 print"[196]isk error for ";f$:printem$
  20. 190 print"run[145][145][145]":close1:close2:close15:end
  21. 200 ifdv<>8thenopen2,dv,sa,o$:goto290
  22. 210 ex$=",s,w":ifp$="3"thenex$=",p,w"
  23. 220 open2,dv,sa,"0:"+o$+ex$:input#15,en,em$:f$=o$
  24. 230 ifen=0then290
  25. 240 ifen<>63then180
  26. 250 print"";o$;" exists... [210]eplace? [217][146]/[206][146]:"
  27. 260 geta$:ifa$<>"y"anda$<>"n"then260
  28. 270 ifa$="n"then190
  29. 280 print#15,"s0:"+o$:close2:goto220
  30. 290 sys(adr):if(peek(144)and191)=0thenprint"[196]one.":goto190
  31. 300 print"[201]/[207] [197]rror during conversion.":input#15,en,em$:ifen<>0then180
  32. 310 goto190
  33. 320 fori=828to1001:reada:pokei,a:ck=ck+a:next:ifck=21584thenreturn
  34. 330 print"error in data statements.":end
  35. 340 data 076,069,003,076,122,003
  36. 350 data 076,174,003,032,225,255
  37. 360 data 240,018,032,216,003,032
  38. 370 data 095,003,032,183,255,072
  39. 380 data 032,224,003,104,041,064
  40. 390 data 240,233,076,204,255,133
  41. 400 data 251,041,064,010,005,251
  42. 410 data 041,191,133,251,041,032
  43. 420 data 073,032,010,005,251,201
  44. 430 data 095,208,002,169,013,133
  45. 440 data 251,096,032,225,255,240
  46. 450 data 221,032,216,003,032,095
  47. 460 data 003,041,127,201,065,144
  48. 470 data 018,201,091,176,014,170
  49. 480 data 165,251,041,128,073,128
  50. 490 data 074,074,133,251,138,005
  51. 500 data 251,133,251,032,183,255
  52. 510 data 072,032,224,003,104,041
  53. 520 data 064,240,207,076,204,255
  54. 530 data 032,225,255,240,169,032
  55. 540 data 216,003,201,013,208,002
  56. 550 data 169,031,072,041,128,074
  57. 560 data 133,251,104,041,063,005
  58. 570 data 251,133,251,032,183,255
  59. 580 data 072,032,224,003,104,041
  60. 590 data 064,240,217,076,204,255
  61. 600 data 162,001,032,198,255,076
  62. 610 data 207,255,162,002,032,201
  63. 620 data 255,165,251,076,210,255
  64.